88 
. 
S38388328388838 


*eF I LE®*1D**DKS 
DODDDDDD KK KK SSSSSSSS 
DDDDDDDD KK KK SSSSSSSS 
DD DD KK KK SS 
DD DD K KK SS 
DD DD KK KK SS 
DD DD KK SS 
dD DD KKKKKK SSSSSS 
DD DD KKKKKK SSSSSS 
DD DD KK KK Ss 
dD DD KK KK SS 
dD DD KK KK SS eoee 
DD DD KK KK SS eos 
DDDDDDDD KK KK $SSSSSSS eeee 
DDDDDDDD KK KK SSSSSSSS eeee 
RRRRRRRR EEEEEEEEEE QQQQQaQ 
RRRRRRRR EEEEEEEEEE QaqQqaaa 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RR RR EE Qa QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RR RR EE QQ QQ QQ 
RR RR EE QQ QQ QQ 
RR RR EE QQ QQ 
RR RR EE Qa QQ 
RR RR EEEEEEEEEE Qa0Qg QQ 
RR RR EEEEEEEEEE Qaag aa 
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' 
; Version: *v04-000' 
i eeeeereeeeeeeeerrereererereereerenreeeereerereereerereerereeeeeeeeeeeeereete 


COPYRIGHT (<) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


ALL RIGHTS RESERVED. 
hal SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE 


* 
® 
te 
® 
«© 
am 
WITH OTHE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. : 
© 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SHOULD NOT * 

cy 

® 

® 

cs 

® 

e 

* 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORAT I 


DIGITAL ASSUMES NO RESPONS "7 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 


i eeeeeeeereerereeneerecceererereeeerenteeeeneneeeeeeeeereeeeerereeeereereree 
ZIF SWITCHES (DEBUG) 
xT = 


GLOBAL D: INITIAL (ZBLISS(BLISS16)); 
LiF BBL 15s BL 1$516) THEN 
REQUIRE ‘SYSSLIBRARY:TUTIO’; 
PUT (X)C) = 
-D TREN (TTY -PUT_QUO(X); TTY_PUT_CRLF())) 2; 


I 
F %B 1SS (BL ISS32) ZTHEN 
EXTERNAL ROUTINE E SORSSOUTPUT: 
MACRO [gutPut OOL 
.D TREN SOR SSOUTPUT (UPL IT CECHARCOUNT (X) UPLIT BYTEGO) 
ZIF XLENGTH GIR 1 ZTHEN , ZREMAINING 2FI ) 


ae 


OUTPUT_(X) = %; 
XFI 


ZIF ZOL ISS (Ol 15832) THEN 
REQUIRE "SRC$:COM'; ' Common definitions for VAX-11 SORT/MERGE 
LIBRARY "SRC$:SRTSPC° i Common definitions needed for this module 
LIBRARY ‘SRC$: SSFKEYORD' i Spec file keyword definitions 
LIBRARY ‘S11V3SRC: ays ' Common definitions for PDP-11 SORT/MERGE 
LIBRARY ‘S11V3SRC:SRTSPC ! Common definitions needed for this module 
LIBRARY ‘S11V5SRC: 4 Td cae ! Spec file keyword definitions 
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IF ERROR_( X ) = ZIF ZBLISS( BLISS16 ) & 


THE 
ZELS 


N IF X NEQ $5$_ NORMAL 
E IF NOT X ZFI“E; 


ACRO 
WRN_(MSG) = 
IF ERR_CNTL( MIF XDECLARED(KYW_LINE) ZTHEN .KYW_LINE ZELSE 0 2FI, 
“ NEQ SUCCESS THEN RETURN FAIL; 
ERR_(LINE, MSG) = 


IF ERR_CNTL( LINE 
IF £BLISS( BLISS16 ) XTHEN -ABS( MSG ) ELSE MSG %FI) 
NEQ SUCCESS THEN RETURN FAIL; 


MACRO 
ERR_CNTL = ECSERR_CNTL i. 
SPC- AP = SHSSPC"HEAP % 
SPC“ALLOC = SASSPC ALLOC & 

SKIP_IGNORED = SKIP_ TGNORED x, 

SKIP~COMMA = ttt 


: “COMMA % 
Ger _Ryw W_TYPE = GKTSGET= KY TYPE %, 
GETZCHAR CLAUSE = CCSGET_ CHAR CLAUSE %, 


PEC = GSS$GET~SUB_ SPEC 
GET“FILE SPEC = GFSSGETFILE SPEC &, 
GET STRING = GSS6 ET STRING %, 


“MOD = SPARSE-MOD %, 
E-IGN ISPARSE-IGN % 
PARSE-TEST = = PTSPARSE-TEST &, 
EY = PKSPARSE-KEY 
CONV CONSTANTS = CCSCONY “CONSTANTS %, 
SEARCH TABLE = STSSEARCA TABLE %, 
INIT_CS_TAB = ICTSINIT_CS TAB &. 
“FOLD = OF $00_FOCD &, 
ASCVT A ATB f; 


ZI1F xB. 1836 19516) XTHEN 


SORSSSFPRS = 
ZIF VAR_IS_SORT_(ZVARIANT) X%THEN 
S$SSFPR 


LSE 
SMSFPR 
er 1 B: ' Use a shorter routine name 


‘EXTERNAL SOUT INE 
; ERR_CNT : CA_LINKAGE; ! Error control routine 


ZIF NOT ZDECLARED(SORS_WKAREA) Oa 
Lp FERAL SORS_WKAREA = SORS_SRTIWA 
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: Define the keyword Literals (KW xxx) 
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MACRO NAM_CA, 8] = XNAME('KW_',A) = XCOUNT 2; 


TERAL NAM_( KEYWORDS ); 
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Z1F NOT FRE CLARED {AIL ) ZTHEN LITERAL call = 9 aF 
ZIF NOT ZDECLARED(SU BSS; ZTHEN ti RAL SUC gs = 1; iF 
ZIF NOT ZDECLARED(FALSE ) ZTHEN LITERAL FALS = 0; if 
ZIF NOT ZDECLARED(TRUE ) ZTHEN LITERAL TRUE = 1; ¥F 
meee GC_(x,0,¥) 
e = 
“RIF XIDENTICAL(X,S) XTHEN 1 XELSE 
ZIF ZIDENTICAL(X,D) ZTHEN PEL RE KM ZFI ZF * 4 + 
ZI1F FIDENTIC AT to Ea) ZTHEN 28° ZELSE 
ZIF ZIDENTICAL(O,EQ) ZTHEN es ZELSE 
TIF BIDE NT EAL HO -eT? ZTHEN 2B'O1" ZELSE O SFI AFI ZF * 2 + 
RIF RIDENTICAL(Y,S) ZTHEN 1 ZELSE 
ZIF rat bem Me ZTHEN 2 ZELSE Y &FI SFI * Of, 
GC_L1_(K) = xX<6,2,0> 2, 
GC_OP_(0) = O<é. i> &, 
GC_L2_(¥) = ¥<0,2,0> 2; 
LITERAL ! returrs from get_char_clause 
GC_SINGLE= 1, ! single char 
GC_DOUBLE= ¢: ! double char 
GC_S_T0_S= 3 ! single - single 
LITERAL 
MAX_CONDX = TDT_MAX, ! Max conditions in omit/incls 
CONST = CFT_ ! Max constants in omit/incls 
MAX_FIELDS = FOT_MAX; ! Max fields definitions 
LITERAL 
ZUPADDR = ( XBPADDR + ZBPUNIT -1 ) / ZBPUNIT; ! Units per address 
: Definitions of fields in SYM_TAB 
MACRO 
SYM_NAM_ADR = 0, 8. XBPADDR, 0 %, ! Address of name in spec buffer 
SYM_NAM_LEN = 1,0, 8 02, ' Length of name in spec buffer 
SYM_INDEX = . & 8.8 & ! Index into FDT or TDT 
Or or 0.8.9.3.8 8s } ! Local symbol table 
° = 
“C BS*(£UPADDR+2) 
( SYM_TAB + O*(ZUPADDR+2) + B*ZUPADDR )<P,S,E>; 


: Definitions of fields in CON_SYM_TAB 


MACRO 
CON_NAM_ADR = 0, 0, ZBPADDR, 0 %, ! Address of name in spec buffer 
CON_NAM_LEN = le Be Be 8 i, ' Length of name in spec buffer 
CON_INDEX = 1, & 8. 0 &3 ! Index into appropriate table 

RIF ZBLISS(BLISS32) Z THEN 

a edie = 1, 16, 8, 0 %; ! Result length, for condx key/data only 


MACRO 
- CON_LENGTH = 2. 0, 8 02%; ! Result length, for condx key/data only 
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ate? ' Local constant symbol table 


YA_T B,P.S.E; BS J] = 
os Ber eupatehess 4 
( CON_SYM_TAB + O*(ZUPADDR+4) + BeXUPADDR )<P,S,E>; 


MACRO 
LOWE 
UPPER_ 


LITERAL 


x) = ((X) OR &X'20") 
=O) = COO AND NOT ax" 36: ) &; 


Fo 
«ee 


CRO 

' ur TCTCE(X) SIWEN m SIF x EQL 0 
' ZTHEN .CACCA_W 

' ZELSE SPC TALCOC CR) XF 1 

! ZELSE SPC_ALLOC(X) XFI %; 


ACRO 
ALLOC (XxX) = 


<TF xCT CE(X) AND (X) EQL 0 
ZTHEN .CACCA_WRK_ADR) 
ZELSE ZIF XBCISSTBLISS32) XTHEN SPC_ALLOC(X) 
LSE BEGIN 
LOCAL S; 
“4 (S = SPC_ALLOC(X)) EQL 0 THEN RETURN FAIL; 
END 
FI 
SFI 2; 


ACRO 

HEAP _(X) = 
ZIF XBLISS(BLISS32) XTHEN SPC_HEAP(X) 
ZELSE Ye dh 


E 
i $3 
iP «5 = SPC_HEAP(X)) EQL 0 THEN RETURN FAIL; 
END 
FI &; 
LITERAL 
TROT_UNIT = 3; ! Temporary RDT, first three bytes of RDT 
STRUCTURE 
TROT _TABC 0,8,P,S,E; BS J = 
t BS*TROT UNIT } 
cao ( TRDT_TAB + O*TRDT_UNIT + B )<P,S,E>; 
TRDT_INCLUDE s &@& %. 9 ! Include/omit, Include = 1 
TROT_ x = 0,1, 1,02, ! Conditional = 
TRDT~TDT_IDX = 1,0, 808%, i Index into TDT 


wef 
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TROT _KFT_IDX = 2,0, 8, 02%; ! Index into KFT 


A 


w¥k VAX/VMS V4.0 


